home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / NEWSOFT / AUGUST / WORKDISC / !Forthmacs / !Run < prev    next >
Text File  |  1997-07-08  |  537b  |  11 lines
  1. If "<Forthmacs$Dir>"<>"<Obey$Dir>" then Set Run$Path <Obey$Dir>.risc_os.bin.,<Run$Path>
  2. If "<Forthmacs$Dir>"<>"<Obey$Dir>" then Set Forthmacs$Path ,<Obey$Dir>.,<Obey$Dir>.tools.
  3. If "<Forthmacs$Dir>"<>"<Obey$Dir>" then Set Forthmacs$Dir <Obey$Dir>
  4. If "<Wimp$ScrapDir>"=""            then Set Wimp$ScrapDir <Forthmacs$Dir>.^
  5. set tar$Scrap <Wimp$ScrapDir>.tarscrap
  6. Filer_OpenDir <Forthmacs$Dir>
  7.  
  8. Wimpslot 160k 160k
  9. If "<ForthmacsTcl>"="" then run <Forthmacs$Dir>.risc_os.Tcl.shade <Forthmacs$Dir>.risc_os.Tcl.Forthmacs
  10. Wimpslot -next 1024k
  11.